home *** CD-ROM | disk | FTP | other *** search
/ Aminet 5 / Aminet 5 - March 1995.iso / Aminet / comm / bbs / BBBBS84.lha / rexx / bbsNumbers.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1994-11-17  |  1.5 KB  |  60 lines
  1. /* $VER: bbsNumbers.rexx 8.3 (17.11.94) */
  2.  
  3. NUMERIC DIGITS 14
  4.  
  5. CALL SETCLIP('BBS_STATS',1)
  6. bbspath=GETCLIP('BBS_path')
  7. ADDRESS AREXX bbsLog99.rexx 'NUMBERS' RIGHT(TIME('C'),7) DATE()
  8.  
  9. in.=''
  10. in.0=0
  11. numdat=bbspath'Logs/Numbers.dat'
  12. dailyfile=bbspath'Logs/log.'DATE('S')
  13. IF OPEN(f,numdat,'R')~=0 THEN
  14.   DO
  15.     DO i=1
  16.       line=READLN(f)
  17.       IF EOF(f) THEN LEAVE i
  18.       in.i=line
  19.     END
  20.     in.0=i-1
  21.     CALL CLOSE(f)
  22.   END
  23. CALL FileList(bbspath'Numbers/*',out,'F')
  24. IF OPEN(ff,numdat,'W')=0 THEN
  25.   DO
  26.     CALL SETCLIP('BBS_STATS')
  27.     EXIT
  28.   END
  29. DO i=1 TO out.0
  30.   IF OPEN(f,out.i,'R')=0 THEN ITERATE i
  31.   num=READLN(f)
  32.   CALL CLOSE(f)
  33.   test=UPPER(SUBSTR(out.i,LASTPOS('/',out.i)+1))
  34.   IF test='FIRSTLOGON' | test='LASTBOOT' | test='LASTDEMONBOOT' THEN ITERATE i
  35.   CALL WRITELN(ff,LEFT(num,20) out.i)
  36.   DO j=1 TO in.0
  37.     IF UPPER(WORD(in.j,2))=UPPER(out.i) THEN
  38.       DO
  39.         IF WORD(in.j,1)>num THEN
  40.           DO
  41.             flag='W'
  42.             IF EXISTS(dailyfile) THEN flag='A'
  43.             IF OPEN(f,dailyfile,flag)~=0 THEN
  44.               DO
  45.                 line='NUMBERS ERROR!' WORD(in.j,2) WORD(in.j,1) 'is now' num
  46.                 CALL WRITELN(f,line)
  47.                 CALL CLOSE(f)
  48.                 CALL SETCLIP('BBS_ERROR','NUMBERS ERROR, See log.'DATE('S') '!')
  49.                 ADDRESS AREXX bbsLog99.rexx 'NUMBERS' RIGHT(TIME('C'),7) DATE() line
  50.               END
  51.           END
  52.         ITERATE i
  53.       END
  54.   END
  55. END
  56. CALL CLOSE(ff)
  57. CALL SETCLIP('BBS_STATS')
  58.  
  59. /* bbsNumbers.rexx */
  60.